showing 12 games
name | publisher(developer) | year arrow_downward | description | |
---|---|---|---|---|
Fur Trader | Creative Computing | 1975 | You are the leader of a French fur trading expedition in 1776 leaving the Ontario area to sell furs and get supplies for the next year. You have a choice of three forts at which you may trade. The cost of supplies and the amount you receive for your furs will depend upon the fort you choose. You also specify what types of furs that you have to trade. The game goes on and on until you elect to trade no longer. | labelminimizesubject |
Gomoko | Creative Computing | 1975 | BASIC***Gomoko is an adaptation of the board game Gomoku. The player and computer take turns to place markers on a grid. The goal is to get five in a row. This implementation allows board sizes from 7x7 to the traditional 19x19 to accommodate for various screen sizes. The computer does not keep track of who won the game. | labelminimizesubject |
Guess | Creative Computing | 1975 | Guess is a number guessing game. The player determines the upper limit. The computer thinks of a number and the player must guess it. The computer will signal if it's too high or too low. | labelminimizesubject |
Hi-Lo | Creative Computing | 1975 | https://www.imdb.com/title/tt2136981/?ref_=adv_li_tt***Hi-Lo is a guessing game. There's a amount of money in the jackpot, which is somewhere between 1 and 100. The player gets 6 guesses in which the number must be guessed or the game ends. After each guess the player learns if his guess was high or low. | labelminimizesubject |
Horserace | Creative Computing | 1975 | Horserace is a betting game in which up to 10 players can bet on digital horses which will race the teletype paper to the finish. Players can bet up to 100,000 on 8 horses. Each horse has its own odds which determines the payouts when that horse wins. | labelminimizesubject |
King | Creative Computing | 1975 | KING GOVERN YOUR OWN ISLAND Description This is one of the more comprehensive, difficult, and interesting land and resource management games. (If you've never played one of these games, start with HMRABI). In this game, you are Premier of Setats Detinu, a small communist island 30 by 70 miles long. Your job is to decide upon the budget of the country and distribute money to your countrymen from the communal treasury. The money system is Rallods; each person needs 100 Rallods per year to survive. Your country's income comes from farm produce and tourists visiting your magnificent forests, hunting, fishing, etc. Part of your land is farm land but it also has an excellent mineral content and may be sold to foreign industry for strip mining. Industry import and support their own workers. Crops cost between 10 and 15 Rallods per $quare mile to plant, cultivate, and harvest. Your goal is to complete an eight-year term of office without major mishap. To the question, "HOW MANY TIMES HAVE YOU PLAYED?" answer "0" for a full set of rules, "500" for no explanation, or "1,000" to continue an old game. To stop a running game and continue it later, answer "0" to all questions. This program is available from DECUS as BASIC-8-346, and is called "POLLUTION GAME. II***[spoiler=MS-BASIC Source Code;close]1 REM JIM STORER 2 PRINT 'HOW MANY TIMES HAVE YOU PLAYED'; 3 INPUT Z 5 LET N5=8 6 REM (RANDOMIZE) 12 IF Z=500 THEN 47 14 IF Z=1000 THEN 1960 17 FOR Y1=1 TO 10 18 PRINT 19 NEXT Y1 20 PRINT 'CONGRDULATIONS! YOU HAVE BEEN ELECTED PREMIER OF ETATS DETINU,' 22 PRINT 'A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO' 24 PRINT 'DECIDE UPON THE COUNTY'S BUDGET AND DISTIBUTE MONEY TO YOUR' 26 PRINT 'COUNTRYMEN FROM THE COMMUNAL TRASURY.'; 27 IF Z<0 THEN 47 44 PRINT 'GOOD LUCK!' 47 FOR Y1=1 TO 4 48 PRINT 49 NEXT Y1 50 LET A=INT(60000!+(RND(1)*1000)-(RND(1)*1000)) 55 LET B=INT(500+(RND(1)*10)-(RND(1)*10)) 65 LET D=2000 100 LET W=INT(RND(1)*10+95) 101 FOR Y1=1 TO 8 102 PRINT 103 NEXT Y1 105 PRINT 'YOU NOW HAVE'A'RALLODS IN THE TREASURY.' 110 PRINT INT(B)'COUNTRYMEN,'; 115 LET V9=INT(((RND(1)/2)*10+10)) 120 IF C=0 THEN 140 130 PRINT INT(C)'FOREIGN WORKERS,'; 140 PRINT ' AND'INT(D)'SQ. MILES OF LAND.' 150 PRINT 'THIS YEAR INDUSTRY WILL BUY LAND FOR'W'RALLODS PER SQ. MILE.' 155 PRINT 'LAND CURRENTLY COSTS'V9'RALLODS PER SQ. MILE TO PLANT.' 160 FOR Y1=1 TO 3 162 PRINT 163 NEXT Y1 200 INPUT 'HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY';H 215 IF H<0 THEN 200 220 IF H<=D-1000 THEN 300 230 PRINT '...THINK AGAIN, YOU'VE ONLY'D-1000'SQ. MILES OF FARMLAND' 240 IF X<>0 THEN 200 250 PRINT '(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE FOREST' 260 PRINT 'LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES, ETC.)' 280 LET X=1 299 GOTO 200 300 LET D=INT(D-H) 310 LET A=INT(A+(H*W)) 320 INPUT 'HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN';I 342 IF I<0 THEN 320 350 IF I<A THEN 400 360 IF I=A THEN 380 370 PRINT 'YOU ONLY HAVE'A'RALLODS IN THE TRASURY!' 375 GOTO 320 380 LET J=0 390 LET K=0 395 LET A=0 399 GOTO 1000 400 LET A=INT(A-I) 410 INPUT 'HOW MANY SQ. MILES DO YOU WISH TO PLANT';J 421 IF J<0 THEN 410 422 IF J<=B*2 THEN 426 423 PRINT 'SORRY, BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES' 424 GOTO 410 426 IF J<=D-1000 THEN 430 427 PRINT 'SORRY, BUT YOU'VE ONLY'D-1000'SQ. MILES OF FARM LAND' 428 GOTO 410 430 LET U1=INT(J*V9) 435 IF U1<A THEN 500 440 IF U1=A THEN 490 450 PRINT 'YOU HAVE ONLY 'A'RALLODS IN THE TRASURY' 460 GOTO 410 490 LET K=0 495 LET A=0 499 GOTO 1000 500 LET A=A-U1 505 IF D=2000 THEN 1000 510 PRINT 'HOW MANY RALLODS DO YOU WANT TO SPEND ON POLLUTION CONTROL'; 520 INPUT K 522 IF K<0 THEN 510 530 IF K<=A THEN 1000 540 PRINT 'THINK AGAIN, YOU HAVE ONLY'A'RALLODS LEFT' 550 GOTO 510 600 IF H<>0 THEN 1002 602 IF I<>0 THEN 1002 604 IF J<>0 THEN 1002 606 IF K<>0 THEN 1002 608 FOR Y1=1 TO 5 609 PRINT 610 GOTO 1590 612 PRINT 'GOODBYE.' 1000 GOTO 600 1002 FOR Y1=1TO3:PRINT:NEXT Y1 1010 LET A=INT(A-K) 1020 LET A4=A 1100 IF INT(I/100-B)>=0 THEN 1120 1105 IF I/100<50 THEN 1700 1110 PRINT INT(B-(I/100));'COUNTRYMEN DIED OF STARVATION' 1120 LET F1=INT(RND(1))*(2000-D) 1122 IF K<25 THEN 1130 1125 LET F1=INT(F1/(K/25)) 1130 IF F1<=0 THEN 1150 1140 PRINT F1'COUNTRYMEN DIED FROM THE EFFECTS OF AIR POLLUTION' 1150 IF INT((I/100)-B)<0 THEN 1170 1160 IF F1<0 THEN 1180 1165 GOTO 1200 1170 PRINT ' YOU WERE FORCED TO SPEND'INT((F1+(B-(I/100)))*9); 1172 PRINT 'RALLODS ON FUNERAL EXPENSES.' 1174 LET B5=INT(F1+(B-(I/100))) 1175 LET A=INT(A-((F1+(B-(I/100)))*9)) 1176 GOTO 1185 1180 PRINT ' YOU WERE FORCED TO SPEND'INT(F1*9)'RALLODS ON '; 1181 PRINT 'FUNERAL EXPENSES.' 1182 LET B5=F1 1183 LET A=INT(A-(F1*9)) 1185 IF A>=0 THEN 1194 1187 PRINT ' INSUFFICIENT RESERVES TO COVER COST -LAND WAS SOLD' 1189 LET D=INT(D+(A/W)) 1190 LET A=0 1194 LET B=INT(B-B5) 1200 IF H=0 THEN 1250 1220 LET C1=INT(H+(RND(1)*10)-(RND(1)*20)) 1224 IF C>0 THEN 1230 1226 C1=C1+20 1230 PRINT C1'WORKERS CAME INTO THE COUNTRY AND'; 1250 LET P1=INT(((I/100-B)/10)+(K/25)-((2000-D)/50)-(F1/2)) 1255 PRINT ABS(P1)'COUNTRYMEN '; 1260 IF P1<0 THEN 1275 1265 PRINT 'CAME TO'; 1270 GOTO 1280 1275 PRINT 'LEFT'; 1280 PRINT 'THE ISLAND.' 1290 LET B=INT(B+P1) 1292 C=INT(C+C1) 1305 U2=INT(((2000-D)*((RND(1)*1.5)/2))) 1310 IF C=0 THEN 1324 1320 PRINT ' OF'INT(J)'SQ. MILES PLANTED,'; 1324 IF J>U2 THEN 1330 1326 U2=J 1330 PRINT ' YOU HARVESTED'INT(J-U2)'SQ. MILES OF CROPS.' 1340 IF U2=0 THEN 1370 1344 IF T1>=2 THEN 1370 1350 PRINT ' (DUE TO '; 1355 IF T1=0 THEN 1365 1360 PRINT 'INCREASED '; 1365 PRINT 'AIR AND WATER POLLUTION FROM FORIEGN INDUSTRY.)' 1367 LET T1=T1+1 1370 Q=INT((J-U2)*(W/2)) 1380 PRINT ' MAKING'INT(Q)'RALLODS.' 1390 LET A=INT(A+Q) 1400 V1=INT(((B-P1)*22)+(RND(1)*500)) 1405 V2=INT((2000-D)*15) 1410 PRINT ' YOU MADE'ABS(INT(V1-V2))'RALLODS FROM TOURIST TRADE.' 1420 IF V2=0 THEN 1450 1425 IF V1-V2>=V3 THEN 1450 1430 PRINT ' DECREASE BECAUSE '; 1435 G1=RND(1)*10 1440 IF G1<=2 THEN 1460 1442 IF G1<=4 THEN 1465 1444 IF G1<=6 THEN 1470 1446 IF G1<=8 THEN 1475 1448 IF G1<=10 THEN 1480 1450 V3=INT(V1-V2) 1451 A=INT(A+V3) 1452 GOTO 1500 1460 PRINT 'FISH POPULATION DWINDLED DUE TO WATER POLLUTION.' 1462 GOTO 1450 1465 PRINT 'AIR POLLUTION IS KILLING GAME BIRD POPULATION.' 1467 GOTO 1450 1470 PRINT 'MINERAL BATHS RUINED BY WATER POLLUTION.' 1472 GOTO 1450 1475 PRINT 'UNPLESANT SMOG IS DISCOURAGING SUNBATHERS.' 1477 GOTO 1450 1480 PRINT 'HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT.' 1482 GOTO 1450 1500 IF B5>200 THEN 1600 1505 IF B<343 THEN 1700 1510 IF (A4/100)>5 THEN 1800 1515 IF C>B THEN 1550 1520 IF N5-1=X5 THEN 1900 1545 GOTO 2000 1550 FOR Y1=1 TO 8 1552 PRINT 1555 NEXT Y1 1560 PRINT 'THE FORIEGN WORKERS HAVE REVOLTED AND TAKEN OVER THE ' 1562 PRINT 'COUNTRY.' 1570 IF RND(1)>.5 THEN 1580 1574 PRINT 'YOU ARE REMOVED FROM OFFICE AND ARE NOW RESIDING IN PRISON.' 1578 GOTO 1590 1580 PRINT 'YOU HAVE BEEN ASSASSINATED.' 1590 REM--------END OF JOB-------- 1596 STOP 1600 FOR Y1=1 TO 8 1602 PRINT 1605 NEXT Y1 1610 PRINT B5'COUNTRYMEN HAVE DIED IN ONE YEAR!!!!' 1615 PRINT 'YOU HAVE BEEN IMPEACHED AND REMOVED FOR EXTREME MISMANAGEMENT' 1622 M6=INT(RND(1)*10) 1625 IF M6<=3 THEN 1670 1630 IF M6<=6 THEN 1680 1635 IF M6<=10 THEN 1690 1670 PRINT 'ALSO HAD YOUR LEFT EYE GOUGED OUT.' 1672 GOTO 1590 1680 PRINT 'HAVE ALSO GAINED A VERY BAD REPUTATION.' 1682 GOTO 1590 1690 PRINT 'HAVE ALSO BEEN DECLARED NATIONAL FINK.' 1692 GOTO 1590 1700 FOR Y1=1 TO 8 1702 PRINT 1705 NEXT Y1 1710 PRINT 'OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU' 1715 PRINT 'WERE ELECTED TO OFFICE. THE PEOPLE (REMAINED)' 1720 PRINT 'HATE YOUR GUTS.' 1730 GOTO 1570 1800 IF B5-F1<2 THEN 1515 1805 FOR Y1=1 TO 8 1807 PRINT 1810 NEXT Y1 1815 PRINT 'MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID' 1820 PRINT 'DID NOT SPEND. AS A RESULT SOME OF YOUR COUNTRY DIED' 1825 PRINT 'OF STARVATION. THE PUBIC IS ENRAGED AND YOU HAVE' 1830 PRINT 'BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE' 1835 PRINT 'THE CHIOCE IS YOURS' 1850 GOTO 1590 1900 PRINT:PRINT:PRINT 'CONGRADULATIONS!!!!!!' 1925 PRINT 'YOU HAVE SUCCESSFULLY COMPLETED YOUR 'N5'YEAR TERM' 1950 GOTO 1590 1960 INPUT 'HOW MANY YEARS WERE YOU IN OFFICE WHEN INTERRUPTED';X5 1962 IF X5<0 THEN 1590 1963 IF X5<8 THEN 1969 1965 PRINT ' COME ON, YOUR TERM IS ONLY'N5'YEARS' 1967 GOTO 1960 1969 INPUT 'HOW MUCH DID YOU HAVE IN THE TREASURY';A 1971 IF A<0 THEN 1590 1975 INPUT 'HOW MANY COUNTRYMEN';B 1977 IF B<0 THEN 1590 1980 INPUT 'HOW MANY WORKERS';C 1982 IF C<0 THEN 1590 1990 INPUT 'HOW MANY SQ. MILES OF LAND';D 1992 IF D<0 THEN 1590 1993 IF D>2000 THEN 1996 1994 IF D>1000 THEN 100 1996 PRINT ' COME ON, YOU ONLY STARTED WITH 1000 SQ. MILES!' 1998 GOTO 1990 2000 X5=X5+1 2040 GOTO 100 2046 END[/spoiler] [Zerothis] | labelimagesubject |
Letter | Creative Computing | 1975 | LETTER is similar to the game GUESS in which you guess a number chosen by the computer; in this program, the computer picks a random letter of the alphabet and you must guess which one it is using the clues provided as you go along. It should not take you more than five guesses to get the mystery letter. | labelminimizesubject |
Life for Two | Creative Computing | 1975 | In this version of Conway's Life, there are two types of lifeforms and they can destroy each other by the same rules as the original life. Two players take turns placing their specific lifeform on a 5x5 grid then the simulation runs for 1 pass. Players then get turns to place an addition member of their chosen lifeform. Players can see the simulation after a pass but do not get to see where the other player placed their lifeform. The winner kills all of the other player's lifeforms. | labelminimizesubject |
Poker | Creative Computing | 1975 | labelminimizeminimize | |
Roulette | Creative Computing | 1975 | Roulette is a European Roulette Table gambling simulation written in BASIC for the PDP-10. The player can bet on a colour, number column, odd or even. The player can also decide how much virtual money to bet. The player has unlimited funds and the game only shows how much difference the player made.***Play on an 'American' roulette wheel (1-36,0, and 00)'. Bet $1 to $500 on a number, 00, 0, a halfs group (19-36), thrids group (ie: 13-24), a column, odd, even, red, or black. No number spanning (2+5, 20+21+23+24), no rows, no betting on zeros except as a single number. The computer will be betting on each spin as well. The spin results in 1-36, 0, or 00 and all the non-zero numbers are on red or black backgrounds. The goal is not so much to win here (everyone loses eventually), but to make more money than the computer does. When the computer wins, ir writes itself a check (which doesn't include routing or account numbers :) Interestingly, in the book [i]101 Basic Computer Games[/i] recommends using a martingale strategy (classic double-up) as a way to win at this Roulette game. For those who don't know, the martingale strategy only comes close to working if you have infinite wealth to begin with. Even then, it doesn't work if there is a zero space on the wheel. And it especially doesn't work in the case of two zeros spaces. | labelimagesubject |
Slots | Creative Computing | 1975 | Slots is a simulation of one armed bandit slot machine. The player pulls the lever and the three reels will spin revealing a symbol. Matches are worth a certain payout. Unlike actual slot machines the payoff is very liberal: 11% gains for the player on average.***At the time of this game's first publishing, the best payoff rate for a real slot machine in Nevada was 89.11% This game's payoff is 111%. Probabilistically speaking, you can't lose. | labelminimizesubject |
Stock Market | Creative Computing | 1975 | Stock: Stock Market Simulation is a stock trading game. Every trading day the stock prices change (randomly). The player can buy and sell. Each brokerage fee of 1% is charged for all transactions. The goal is to earn as much virtual money as possible. | labelminimizesubject |